home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tbbyte.arc / NEWDRIVE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-14  |  256 b   |  7 lines
  1. procedure log_new_drive(ch:char);
  2. begin
  3.   drv := ord(ch) - ord('A');
  4.   r.dx := drv;
  5.   r.ax := $e shl 8;            { Log a new drive as the default }
  6.   msdos(R);
  7. end;